perm filename TMPCOR.VLI[VLI,LSP] blob sn#382078 filedate 1978-09-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE READFTMPCOR (  l)
C00003 ENDMK
CāŠ—;
(DE READFTMPCOR ( ;; l)
   (SETQ l (TMPCOR 'ED))
   (IFN (LISTP l) (LESCAPE))
   (OR (AND (EQ (NEXTL l) 'E)
            (EQ (NEXTL l) 'T)
            (NEXTL l))
       (LESCAPE))
 
   (SETQ filname)
   (WHILE (NEQ (CAR l) '/.) (SETQ filname (CONS (NEXTL l) filname)))
   (NEXTL l)
   (OR (AND (EQ (NEXTL l) 'V)
      	    (EQ (NEXTL l) 'L)
            (EQ (NEXTL l) 'I))
       (LESCAPE))
   (APPLY 'GENSYM (REVERSE filname)))))))